﻿Imports System
Imports System.Reflection

Namespace System.Workflow.Activities.Rules
    Friend Class RuleBinaryExpressionInfo
        Inherits RuleExpressionInfo
        ' Methods
        Friend Sub New(ByVal lhsType As Type, ByVal rhsType As Type, ByVal mi As MethodInfo)
            MyBase.New(mi.ReturnType)
            Me.leftType = lhsType
            Me.rightType = rhsType
            Me.methodInfo = mi
        End Sub

        Friend Sub New(ByVal lhsType As Type, ByVal rhsType As Type, ByVal resultType As Type)
            MyBase.New(resultType)
            Me.leftType = lhsType
            Me.rightType = rhsType
        End Sub


        ' Properties
        Friend ReadOnly Property LeftType As Type
            Get
                Return Me.leftType
            End Get
        End Property

        Friend ReadOnly Property MethodInfo As MethodInfo
            Get
                Return Me.methodInfo
            End Get
        End Property

        Friend ReadOnly Property RightType As Type
            Get
                Return Me.rightType
            End Get
        End Property


        ' Fields
        Private leftType As Type
        Private methodInfo As MethodInfo
        Private rightType As Type
    End Class
End Namespace

